home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / jungle heat (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  137 lines
  1. 10 POKE 53281,7:POKE53280,9:PRINT"[147]","INSTRUCTIONS   Y OR N"
  2. 15 GETA$:IFA$="Y"THEN515
  3. 20 IFA$<>"N"THEN15
  4. 25 SC=1024:C=55296:B=206:E=235:SP$="      "
  5. 27 J$="":H$=LEFT$(J$,5)
  6. 30 FORT=0TO119:POKESC+T,160:POKEC+T,14:NEXT
  7. 35 FORT=880TO1000:POKESC+T,160:POKEC+T,5:NEXT
  8. 40 FORT=759TO879STEP40:POKESC+T,116:POKEC+T,0:NEXT
  9. 45 FORV=1TO5:FORT=BTOE:POKESC+T,160:POKEC+T,5:NEXT:B=B+40:E=E+40:NEXT
  10. 50 PRINTLEFT$(J$,10)
  11. 55 FORT=1TO12:PRINT,"[149][182]  [146]  [146]    [146]   [146]  [146] [161]  [146]   [146][182]":NEXT
  12. 60 FORU=1TO10:READX,Y:FORT=XTOX+YSTEP40:POKESC+T,32:NEXT:NEXT
  13. 65 DATA730,120,745,120,751,120,816,40,852,0,861,0,863,0
  14. 67 DATA851,0,814,40,827,40
  15. 70 FORT=1TO35:READA,B:POKESC+A,B:POKEC+A,5:NEXT
  16. 75 DATA206,32,207,32,208,233,214,223,215,233,220,223,221,233,366,32,368,95
  17. 80 DATA224,223,225,233,233,223,234,32,235,32,245,233,276,223,285,105,316
  18. 85 DATA95,286,233,326,105,327,233,367,105,315,223,355,95,354,223,395
  19. 90 DATA32,394,95,393,223,433,95,176,233,177,160,178
  20. 92 DATA160,179,223,189,233,190,223
  21. 95 PRINT"[154]Q-MAN"TAB(32)"[154]P-BODY"
  22. 100 FORK=1TO6:READH1(K),L1(K),H2(K),L2(K):NEXT
  23. 105 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162
  24. 110 DATA42,62,31,165,50,60,37,162
  25. 115 V=53248:POKEV,0:POKEV+2,0:POKEV+21,255:POKEV+1,190
  26. 117 POKEV+3,180:POKEV+27,3
  27. 120 FORS1=12288TO12542:READQ1:POKES1,Q1:NEXT
  28. 125 FORT=41TO46:POKEV+T,2:NEXT:POKEV+39,0:POKEV+40,14
  29. 130 GOSUB575:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
  30. 135 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
  31. 140 X=RND(-TI):R=1:RR=1:P=192:DP=1:X=1:Z=1:W=0:POKEV+16,128
  32. 145 FORT=2042TO2047:POKET,195:NEXT
  33. 150 POKEV+5,114:POKEV+7,104:POKEV+9,109:POKEV+11,114:POKEV+13,104
  34. 155 POKEV+15,109:POKEV+4,81:POKEV+6,125:POKEV+8,166:POKEV+10,202
  35. 160 POKEV+12,237:POKEV+14,15:FORD=1TO3:GOSUB230:GOSUB260:NEXT
  36. 165 PRINT"WATCH OUT FOR COCONUTS!"
  37. 170 PRINTJ$"[156]READY":FORT=1TO500:NEXT
  38. 175 PRINTJ$"[144]  GO  ":POKES+4,33:FORT=1TO500:NEXT
  39. 180 POKES+4,32:PRINTJ$SP$:TI$="000000":W=TI:POKE198,0
  40. 185 IFX>315THEN420
  41. 190 IFZ>315THEN425
  42. 195 GETA$
  43. 197 Q=TI:PRINTH$SP$H$Q-W+5
  44. 198 IFA$=""THEN195
  45. 200 IFA$="P"THENGOSUB255
  46. 205 IFA$="Q"THENGOSUB225
  47. 210 IFA$="O"THENGOSUB285
  48. 215 IFA$="W"THENGOSUB290
  49. 220 POKE198,0:GOTO185
  50. 225 Q=TI:PRINTH$SP$H$Q-W+5:IFQ-W<55THEN260
  51. 230 W=TI:FORU=1TO4:GOSUB490
  52. 235 IFP=192THENGOSUB410
  53. 240 IFP=193THENGOSUB415
  54. 245 POKE2040,P:P=P+DP:IFP<>193THENDP=-DP
  55. 250 X=X+2:NEXT:RETURN
  56. 255 Q=TI:PRINTH$SP$H$Q-W+5:IFQ-W<55THEN230
  57. 260 W=TI:FORU=1TO4:GOSUB505
  58. 265 IFP=192THENGOSUB410
  59. 270 IFP=193THENGOSUB415
  60. 275 POKE2041,P:P=P+DP:IFP<>193THENDP=-DP
  61. 280 Z=Z+2:NEXT:RETURN
  62. 285 X1=V:X2=X1+1:X3=190:X4=311:X5=253:X7=X:X8=1:GOTO295
  63. 290 X1=V+2:X2=X1+1:X3=180:X4=301:X5=254:X7=Z:X8=2
  64. 295 SX=V+4:SY=V+5:X6=PEEK(X1):IFPEEK(V+16)>128THENSY=V+15:SX=V+14:GOTO310
  65. 300 IFX6=<PEEK(SX)THEN310
  66. 305 SX=SX+2:SY=SY+2:GOTO300
  67. 310 FORT=1TO15:POKEV+30,0:IFPEEK(SY)=>215THENPOKEX2,X3:GOTO355
  68. 315 G=(PEEK(V+30)ANDX5):GG=GANDX8:IFG>3ANDGG<>0THEN360
  69. 320 POKESY,PEEK(SY)+4
  70. 325 IFR>7ORRR>7THEN350
  71. 330 AA=PEEK(197):IFAA=41ANDX3=180THENZ=Z+5:GOSUB500:R=R+1:NEXT
  72. 335 IFAA=62ANDX3=190THENX=X+5:GOSUB485:RR=RR+1:NEXT
  73. 340 IFAA=38ANDX3=180THENZ=Z-2:GOSUB500:NEXT:GOTO355
  74. 345 IFAA=9ANDX3=190THENX=X-2:GOSUB485:NEXT:GOTO355
  75. 350 POKESY,PEEK(SY)+4:NEXT
  76. 355 R=1:RR=1:RETURN
  77. 360 GOSUB410:FORT1=1TO18:POKESY,PEEK(SY)-1
  78. 365 POKEX2,PEEK(X2)+2:NEXT
  79. 370 IFPEEK(X2)>216THENPOKEX2,216
  80. 375 FORT1=1TO33:POKESY,PEEK(SY)+2:IFPEEK(SY)>225THENPOKESY,225
  81. 380 NEXT
  82. 385 IFX4=301THENFORT2=1TO3:GOSUB230:NEXT
  83. 390 IFX4=311THENFORT2=1TO3:GOSUB260:NEXT
  84. 395 IFR>1THENFORT5=1TOR:GOSUB505:Z=Z-6:NEXT
  85. 400 IFRR>1THENFORT5=1TORR:GOSUB490:X=X-5:NEXT
  86. 405 POKEX2,X3:R=1:RR=1:RETURN
  87. 410 POKES+4,129:POKES+4,128:RETURN
  88. 415 POKES+11,129:POKES+11,128:RETURN
  89. 420 TT$=TI$:GOSUB455:I=I+1:PRINT"";I:GOTO430
  90. 425 TT$=TI$:GOSUB455:M=M+1:PRINT"",,,"";M
  91. 430 PRINT""SPC(250),SPC(250),SPC(250),SPC(156)"TIME: ";RIGHT$(TT$,3)
  92. 435 PRINT""SPC(132)"PLAY AGAIN? Y OR N"
  93. 440 GETA$:IFA$="Y"THENPRINT""SPC(132)"                  ":GOTO130
  94. 445 IFA$<>"N"THEN440
  95. 450 POKE53281,11:POKE53248+21,0:GOTO63000
  96. 455 POKES+5,85:POKES+6,85:POKES+12,85:POKES+13,85:POKES+4,33:POKES+11,17
  97. 460 FORK=1TO6
  98. 465 POKES+1,H1(K):POKES,L1(K):POKES+8,H2(K):POKES+7,L2(K)
  99. 470 IFH1(K)=50THENFORT1=1TO200:NEXT
  100. 475 FORT2=1TO100:NEXT
  101. 480 NEXT:GOSUB575:RETURN
  102. 485 POKESY,PEEK(SY)+4
  103. 490 RX=INT(X/256):LX=X-RX*256
  104. 495 POKEV,LX:POKEV+16,PEEK(V+16)ORRX:RETURN
  105. 500 POKESY,PEEK(SY)+4
  106. 505 RZ=INT(Z/256):LZ=Z-RZ*256
  107. 510 POKEV+2,LZ:POKEV+16,PEEK(V+16)ORRZ*2:RETURN
  108. 515 PRINT:PRINT:PRINT:PRINT"'Q' MOVES THE BLACK SPRITE FORWARD."
  109. 520 PRINT"'W' MOVES HIM BACKWARD DURING A COCONUT"
  110. 525 PRINT"    DROP.  IT ALSO FIRES COCONUTS."
  111. 530 PRINT:PRINT"'P' MOVES THE BLUE SPRITE FORWARD."
  112. 535 PRINT"'O' MOVES HIM BACKWARD DURING A COCONUT"
  113. 540 PRINT"    DROP.  IT ALSO FIRES COCONUTS."
  114. 545 PRINT:PRINT"THERE IS A ONE-SECOND INTERVAL BETWEEN"
  115. 550 PRINT"SPRITE ADVANCES.  DON'T PRESS TOO SOON--"
  116. 555 PRINT"THE JIFFY TIMER UPPER LEFT MUST READ"
  117. 557 PRINT"60 OR YOUR OPPONENT ADVANCES."
  118. 560 PRINT:PRINT"PRESS ANY KEY TO CONTINUE"
  119. 565 GETA$:IFA$=""THEN565
  120. 570 IFA$<>""THENPRINT"[147]":GOTO25
  121. 575 S=54272:FORT=STOS+24:POKET,0:NEXT:RETURN
  122. 580 DATA3,254,0,30,31,224,48,255,159,99,252,158,103,252,240,111,255,192,103,255
  123. 585 DATA0,99,252,0,51,240,0,27,88,0,28,255,128,48,239,248,33,225
  124. 587 DATA255,1,224,15,3,192,30,7,128,60,7,128,96,15,0,252,12,1,248
  125. 590 DATA31,128,0,31,128,0,0,1,255,0,15,207,224,28,255,152,51,249,159
  126. 595 DATA103,249,255,111,255,254,103,254,0,39,224,0,54,12,0,112,124
  127. 600 DATA0,192,126,0,0,126,0,0,94,0,0,94,0,0,95,0,0,223,0,0,223,0,0
  128. 605 DATA223,0,1,220,0,1,223,224,1,223,224,0,0,248,0,2,255,0,5,255,128
  129. 610 DATA9,255,224,19,255,240,27,255,240,27,255,254,27,255,255,63,254
  130. 615 DATA0,252,0,0,0,62,0,0,62,0,0,62,0,0,125,0,1,252,128,3,231,192,255
  131. 620 DATA195,192,255,131,192,224,3,0,192,3,240,0,3,240,0,0,0,0,0,0,0,0,0
  132. 625 DATA0,0,0,0,0,0,0,0,253,0,3,143,192,7,15,240,14,31,248,31,255,252
  133. 630 DATA111,255,251,56,255,134,15,0,120,7,255,240,3,255,224,0,255
  134. 635 DATA128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  135. 63000 REM   RECONNECT TO L.S.
  136. 63010 LOAD"PAYLOAD CONNECT",8
  137.